79 | | The following changes were applied to two files: |
| 79 | The following diff show changes to have to be done to plug the module within a BGC model: |
| 80 | |
| 81 | {{{p4zopt.F90}}} |
| 82 | {{{ |
| 83 | 19d18 |
| 84 | < USE trcopt, ONLY: trc_opt |
| 85 | 88,97d86 |
| 86 | < call trc_opt(kt, knt, Kbb, Kmm, zchl3d, ze1, ze2, ze3) |
| 87 | < IF( lk_iomput .AND. knt == nrdttrc ) THEN |
| 88 | < CALL iom_put( "etot3_trc" , etot3(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 89 | < CALL iom_put( "etot_trc" , etot(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 90 | < CALL iom_put( "ze1_trc" , ze1(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 91 | < CALL iom_put( "ze2_trc" , ze2(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 92 | < CALL iom_put( "ze3_trc" , ze3(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 93 | < ENDIF |
| 94 | < |
| 95 | < ! |
| 96 | 245,251d233 |
| 97 | < ENDIF |
| 98 | < IF( lk_iomput .AND. knt == nrdttrc ) THEN |
| 99 | < CALL iom_put( "etot3_pis" , etot3(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 100 | < CALL iom_put( "etot_pis" , etot(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 101 | < CALL iom_put( "ze1_pis" , ze1(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 102 | < CALL iom_put( "ze2_pis" , ze2(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 103 | < CALL iom_put( "ze3_pis" , ze3(:,:,:) * tmask(:,:,:) ) ! euphotic layer deptht |
| 104 | |
| 105 | }}} |
| 106 | |
| 107 | {{{trcini.F90}}} |
| 108 | {{{ |
| 109 | 27d26 |
| 110 | < USE trcopt ! light module |
| 111 | 75d73 |
| 112 | < CALL trc_opt_ini ! Light module |
| 113 | 298d295 |
| 114 | < USE trcopt , ONLY: trc_opt_alloc |
| 115 | 308d304 |
| 116 | < ierr = ierr + trc_opt_alloc() |
| 117 | }}} |