| 50 |
& 0,1,0,1,1,myThid) |
& 0,1,0,1,1,myThid) |
| 51 |
CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask', |
CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask', |
| 52 |
& 0,1,0,1,1,myThid) |
& 0,1,0,1,1,myThid) |
| 53 |
|
#ifdef STREAMICE_HYBRID_STRESS |
| 54 |
CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf', |
CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf', |
| 55 |
& 0,1,0,1,1,myThid) |
& 0,1,0,1,1,myThid) |
| 56 |
CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf', |
CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf', |
| 57 |
& 0,1,0,1,1,myThid) |
& 0,1,0,1,1,myThid) |
| 58 |
|
#endif |
| 59 |
CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev', |
CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev', |
| 60 |
& 0,1,0,1,1,myThid) |
& 0,1,0,1,1,myThid) |
| 61 |
|
|