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 |
|
|