Ignore:
Timestamp:
2008-05-30T18:21:28+02:00 (13 years ago)
Author:
ctlod
Message:

trunk: replace freeze(:,:) variable with fr_i(:,:), use the tfreez function defined in eosbn2.F90 and remove the useless ocfzpt.F90 module, see ticket: #177

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

    r888 r1037  
    5252    !!  level 10: hmld(:,:)                turbocline depth 
    5353    !!  level 11: hmlp(:,:)                mixed layer depth 
    54     !!  level 12: freeze (:,:)             Ice cover (1. or 0.) 
     54    !!  level 12: fr_i(:,:)                ice fraction (between 0 and 1) 
    5555    !!  level 13: sst(:,:)                 the observed SST we relax to. 
    5656    !!  level 14: qct(:,:)                 equivalent flux due to treshold SST 
     
    181181       fsel(:,:,10) = fsel(:,:,10) + hmld(:,:) 
    182182       fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:) 
    183        fsel(:,:,12) = fsel(:,:,12) + freeze(:,:) 
     183       fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:) 
    184184       fsel(:,:,13) = fsel(:,:,13) + sst(:,:) 
    185185       !        fsel(:,:,14) = fsel(:,:,14) + qct(:,:) 
     
    263263          fsel(:,:,10) = hmld(:,:) * tmask(:,:,1) 
    264264          fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1) 
    265           fsel(:,:,12) = freeze(:,:) * tmask(:,:,1) 
     265          fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1) 
    266266          fsel(:,:,13) =  sst(:,:)   
    267267          !         fsel(:,:,14) =  qct(:,:) 
Note: See TracChangeset for help on using the changeset viewer.