New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5446 for branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-06-19T17:52:53+02:00 (9 years ago)
Author:
davestorkey
Message:

Update UKMO/dev_r5021_nn_etau_revision branch to revision 5442 of the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r5240 r5446  
    598598         ENDIF 
    599599 
    600          IF( .NOT. lk_cpl ) THEN 
     600         IF( .NOT. ln_cpl ) THEN 
    601601            CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping"         , "W/m2"   ,   &  ! qrp 
    602602               &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
     
    607607         ENDIF 
    608608 
    609          IF( lk_cpl .AND. nn_ice <= 1 ) THEN 
     609         IF( ln_cpl .AND. nn_ice <= 1 ) THEN 
    610610            CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping"         , "W/m2"   ,   &  ! qrp 
    611611               &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
     
    630630#endif 
    631631 
    632          IF( lk_cpl .AND. nn_ice == 2 ) THEN 
     632         IF( ln_cpl .AND. nn_ice == 2 ) THEN 
    633633            CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature"            , "K"      ,   &  ! tn_ice 
    634634               &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
     
    785785      ENDIF 
    786786 
    787       IF( .NOT. lk_cpl ) THEN 
     787      IF( .NOT. ln_cpl ) THEN 
    788788         CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    789789         CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
     
    791791         CALL histwrite( nid_T, "sosafldp", it, zw2d          , ndim_hT, ndex_hT )   ! salt flux damping 
    792792      ENDIF 
    793       IF( lk_cpl .AND. nn_ice <= 1 ) THEN 
     793      IF( ln_cpl .AND. nn_ice <= 1 ) THEN 
    794794         CALL histwrite( nid_T, "sohefldp", it, qrp           , ndim_hT, ndex_hT )   ! heat flux damping 
    795795         CALL histwrite( nid_T, "sowafldp", it, erp           , ndim_hT, ndex_hT )   ! freshwater flux damping 
     
    807807#endif 
    808808 
    809       IF( lk_cpl .AND. nn_ice == 2 ) THEN 
     809      IF( ln_cpl .AND. nn_ice == 2 ) THEN 
    810810         CALL histwrite( nid_T, "soicetem", it, tn_ice(:,:,1) , ndim_hT, ndex_hT )   ! surf. ice temperature 
    811811         CALL histwrite( nid_T, "soicealb", it, alb_ice(:,:,1), ndim_hT, ndex_hT )   ! ice albedo 
Note: See TracChangeset for help on using the changeset viewer.