Changeset 12381


Ignore:
Timestamp:
2020-02-13T15:15:49+01:00 (12 days ago)
Author:
dcarneir
Message:

Updating GO6 branch with G06 version in the apps trunk

Location:
branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/NEMOGCM/NEMO
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r10302 r12381  
    4545   USE agrif_opa_interp ! agrif 
    4646#endif 
    47 #if defined key_asminc    
    48    USE asminc          ! Assimilation increment 
    49 #endif 
    5047 
    5148   IMPLICIT NONE 
     
    459456                &                        + fwfisf(:,:) + fwfisf_b(:,:)                     ) 
    460457      ENDIF 
    461 #if defined key_asminc 
    462       !                                         ! Include the IAU weighted SSH increment 
    463       IF( lk_asminc .AND. ln_sshinc .AND. ln_asmiau ) THEN 
    464          zssh_frc(:,:) = zssh_frc(:,:) - ssh_iau(:,:) 
    465       ENDIF 
    466 #endif 
    467       !                                   !* Fill boundary data arrays for AGRIF 
    468       !                                   ! ------------------------------------ 
     458      !                                   !* Fill boundary data arrays with AGRIF 
     459      !                                   ! ------------------------------------- 
    469460#if defined key_agrif 
    470461         IF( .NOT.Agrif_Root() ) CALL agrif_dta_ts( kt ) 
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

    r11442 r12381  
    10221022       DO jk=1,jpk 
    10231023         coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 
    1024        ENDDOF 
     1024       ENDDO 
    10251025#elif defined key_dynldf_c2d 
    10261026       coeff = exp(gauss) * coeff 
     
    10331033       DO jk=1,jpk 
    10341034         coeff(:,:,jk) = exp(gauss) * coeff(:,:,jk) 
    1035        ENDDOF 
     1035       ENDDO 
    10361036#elif defined key_dynldf_c2d 
    10371037       coeff = exp(gauss) * coeff 
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_sit/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10302 r12381  
    203203                    (zalk(ji,jj) > 35.0E2 ).OR.(zalk(ji,jj) <= 0.0 ) .OR.     & 
    204204                    (zdic(ji,jj) > 35.0E2 ).OR.(zdic(ji,jj) <= 0.0 ) .OR.     & 
    205                     (f_kw660(ji,jj) > 1.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN 
    206                   IF(lwp) THEN  
     205                    (f_kw660(ji,jj) > 2.0E-2 ).OR.(f_kw660(ji,jj) < 0.0 ) ) THEN 
     206                  !IF(lwp) THEN  
    207207                      WRITE(numout,*) ' surface T = ',ztmp(ji,jj) 
    208208                      WRITE(numout,*) ' surface S = ',zsal(ji,jj) 
     
    219219                                       ' kt = ', kt  
    220220                      WRITE(numout,*) 'MEDUSA - Air-Sea INPUT: unrealistic surface Carb. Chemistry' 
    221                   ENDIF      
     221                      WRITE(numout,*) 'E R R O R' 
     222                  !ENDIF      
    222223                  CALL ctl_stop( 'MEDUSA - Air-Sea INPUT: ',             & 
    223224                                 'unrealistic surface Carb. Chemistry -- INPUTS' ) 
Note: See TracChangeset for help on using the changeset viewer.