Changeset 4922 for branches/2014/dev_CNRS_2014
- Timestamp:
- 2014-11-28T15:07:10+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS_2014/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r4920 r4922 6 6 !! History : 2.0 ! 2004-01 (C. Ethe, G. Madec) Original code 7 7 !! 4.0 ! 2011-02 (G. Madec) dynamical allocation 8 !! - ! 201 2 (C. Rousset) add par_oce (for jp_sal)...bug?8 !! - ! 2014 (C. Rousset) add N/S initializations 9 9 !!---------------------------------------------------------------------- 10 10 #if defined key_lim3 … … 77 77 !! 78 78 !! ** Notes : o_i, t_su, t_s, t_i, s_i must be filled everywhere, even 79 !! where there is no ice (clem: I do not know why but it is mandatory)79 !! where there is no ice (clem: I do not know why, is it mandatory?) 80 80 !! 81 81 !! History : … … 119 119 END DO 120 120 121 ! basal temperature (considered at freezing point) 122 t_bo(:,:) = ( eos_fzp( tsn(:,:,1,jp_sal) ) + rt0 ) * tms(:,:) 123 121 124 IF( ln_limini ) THEN 122 125 … … 124 127 ! 2) Basal temperature, ice mask and hemispheric index 125 128 !-------------------------------------------------------------------- 126 t_bo(:,:) = ( eos_fzp( tsn(:,:,1,jp_sal) ) + rt0 ) * tms(:,:)127 129 128 130 DO jj = 1, jpj ! ice if sst <= t-freez + ttest … … 138 140 139 141 ! Hemispheric index 140 ! MV 2011 new initialization141 142 DO jj = 1, jpj 142 143 DO ji = 1, jpi … … 148 149 END DO 149 150 END DO 150 ! END MV 2011 new initialization151 151 152 152 !--------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.