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 12308 for branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 – NEMO

Ignore:
Timestamp:
2020-01-08T17:05:20+01:00 (4 years ago)
Author:
jpalmier
Message:

extract dms_surf2d from diag condition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_DmsOutFix/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r10149 r12308  
    471471                  !! 
    472472                  !! 2D diag through iom_use 
    473                   IF( med_diag%DMS_SURF%dgsave ) THEN 
    474                      dms_surf2d(ji,jj) = dms_surf 
    475                   ENDIF 
     473                  !! JPALM --08-01-2020 -- DMS coupling without asking for diags 
     474                  !!       -- needs to extract dms_surf2d from diag condition    
     475                  !!  
     476                  dms_surf2d(ji,jj) = dms_surf 
     477                  !!  
    476478                  IF( med_diag%DMS_ANDR%dgsave ) THEN 
    477479                     dms_andr2d(ji,jj) = dms_andr 
Note: See TracChangeset for help on using the changeset viewer.