Ignore:
Timestamp:
2015-06-11T21:13:22+02:00 (6 years ago)
Author:
smasson
Message:

merge dev_r5218_CNRS17_coupling into the trunk

Location:
trunk/NEMOGCM/NEMO/LIM_SRC_2
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

    r5385 r5407  
    9696      !!              - fr_i    : ice fraction 
    9797      !!              - tn_ice  : sea-ice surface temperature 
    98       !!              - alb_ice : sea-ice albedo (lk_cpl=T) 
     98      !!              - alb_ice : sea-ice albedo (ln_cpl=T) 
    9999      !! 
    100100      !! References : Goosse, H. et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90. 
     
    178178 
    179179            !   computation the solar flux at ocean surface 
    180             IF( lk_cpl ) THEN 
     180            IF( ln_cpl ) THEN 
    181181               zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj,1) ) * ( 1.0 - pfrld(ji,jj) ) 
    182182            ELSE 
     
    202202            ! mass flux at the ocean-atmosphere interface (open ocean fraction = leads area) 
    203203            !                                                  ! coupled mode:  
    204             IF( lk_cpl ) THEN 
     204            IF( ln_cpl ) THEN 
    205205               zemp = + emp_tot(ji,jj)                            &     ! net mass flux over the grid cell (ice+ocean area) 
    206206                  &   - emp_ice(ji,jj) * ( 1. - pfrld(ji,jj) )          ! minus the mass flux intercepted by sea-ice 
     
    252252      !-----------------------------------------------! 
    253253 
    254       IF( lk_cpl) THEN 
     254      IF( ln_cpl) THEN 
    255255         tn_ice(:,:,1) = sist(:,:)          ! sea-ice surface temperature        
    256256         ht_i(:,:,1) = hicif(:,:) 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r5385 r5407  
    216216                         
    217217            !  partial computation of the lead energy budget (qldif) 
    218             IF( lk_cpl ) THEN  
     218            IF( ln_cpl ) THEN  
    219219               qldif(ji,jj)   = tms(ji,jj) * rdt_ice                                                  & 
    220220                  &    * (   ( qsr_tot(ji,jj) - qsr_ice(ji,jj,1) * zfricp ) * ( 1.0 - thcm(ji,jj) )   & 
     
    288288         CALL tab_2d_1d_2( nbpb,  qns_ice_1d(1:nbpb)     ,  qns_ice(:,:,1), jpi, jpj, npb(1:nbpb) ) 
    289289         CALL tab_2d_1d_2( nbpb, dqns_ice_1d(1:nbpb)     , dqns_ice(:,:,1), jpi, jpj, npb(1:nbpb) ) 
    290          IF( .NOT. lk_cpl ) THEN  
     290         IF( .NOT. ln_cpl ) THEN  
    291291            CALL tab_2d_1d_2( nbpb, qla_ice_1d (1:nbpb)     ,  qla_ice(:,:,1), jpi, jpj, npb(1:nbpb) ) 
    292292            CALL tab_2d_1d_2( nbpb, dqla_ice_1d(1:nbpb)     , dqla_ice(:,:,1), jpi, jpj, npb(1:nbpb) ) 
     
    333333         CALL tab_1d_2d_2( nbpb, qsr_ice(:,:,1), npb, qsr_ice_1d(1:nbpb)  , jpi, jpj ) 
    334334         CALL tab_1d_2d_2( nbpb, qns_ice(:,:,1), npb, qns_ice_1d(1:nbpb)  , jpi, jpj ) 
    335          IF( .NOT. lk_cpl )   CALL tab_1d_2d_2( nbpb, qla_ice(:,:,1), npb, qla_ice_1d(1:nbpb), jpi, jpj ) 
     335         IF( .NOT. ln_cpl )   CALL tab_1d_2d_2( nbpb, qla_ice(:,:,1), npb, qla_ice_1d(1:nbpb), jpi, jpj ) 
    336336         ! 
    337337      ENDIF 
     
    434434      IF( iom_use('qsr_ai_cea' ) )   CALL iom_put( 'qsr_ai_cea', qsr_ice(:,:,1) * ztmp(:,:) )   ! Solar flux over the ice     [W/m2] 
    435435      IF( iom_use('qns_ai_cea' ) )   CALL iom_put( 'qns_ai_cea', qns_ice(:,:,1) * ztmp(:,:) )   ! Non-solar flux over the ice [W/m2] 
    436       IF( iom_use('qla_ai_cea' ) .AND. .NOT. lk_cpl ) & 
     436      IF( iom_use('qla_ai_cea' ) .AND. .NOT. ln_cpl ) & 
    437437         &                           CALL iom_put( 'qla_ai_cea', qla_ice(:,:,1) * ztmp(:,:) )   ! Latent flux over the ice [W/m2] 
    438438      ! 
     
    557557      IF(lwm) WRITE ( numoni, namicethd ) 
    558558 
    559       IF( lk_cpl .AND. parsub /= 0.0 )   CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 
     559      IF( ln_cpl .AND. parsub /= 0.0 )   CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 
    560560      ! 
    561561      IF(lwp) THEN                          ! control print 
  • trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90

    r5385 r5407  
    1818   USE ice_2 
    1919   USE limistate_2 
    20    USE sbc_oce, ONLY : lk_cpl 
     20   USE sbc_oce, ONLY : ln_cpl 
    2121   USE in_out_manager 
    2222   USE lib_mpp          ! MPP library 
     
    325325       !----------------------------------------------------------------------   
    326326                      
    327        IF ( .NOT. lk_cpl ) THEN   ! duplicate the loop for performances issues 
     327       IF ( .NOT. ln_cpl ) THEN   ! duplicate the loop for performances issues 
    328328          DO ji = kideb, kiut 
    329329             sist_1d(ji) = MIN( ztsmlt(ji) , sist_1d(ji) ) 
Note: See TracChangeset for help on using the changeset viewer.